home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __cd_fun / __sports / hyperfoo.00 / card_3983.txt < prev    next >
Text File  |  1990-10-03  |  3KB  |  133 lines
  1. -- card: 3983 from stack: in.00
  2. -- bmap block id: 7075
  3. -- flags: 0000
  4. -- background id: 2687
  5. -- name: KICK OFF
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=383 top=212 right=270 bottom=457
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 13259 / 13259
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: ON SIDE KICK!
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global ty, dwn, dir, fdown, ptime, yop, kick, ofns, plytyp, onside,mdw
  23.   global play, ds, drop, inc
  24.  
  25.   put "On Side Kick" into play
  26.   put 1 into onside
  27.   put 0 into drop
  28.   put 0 into inc
  29.   put 0 into plytyp
  30.   put 12 into ofns
  31.   put 12 into ptime
  32.   put the random of 99 into kick
  33.   put the random of 99 into rtn
  34.   if kick >= 95 and kick <100 then put 40 into ko
  35.   if kick >= 90 and kick <95 then put 33 into ko
  36.   if kick >= 70 and kick <90 then put 27 into ko
  37.   if kick >= 40 and kick <70 then put 15 into ko
  38.   if kick <40 then put 20 into ko
  39.  
  40.   if rtn >= 0 and rtn <=100 then put 2 into r
  41.   visual effect scroll up
  42.   go to card 5
  43.   if dir=0 then
  44.     put ty-ko into fty
  45.     XFootball (ty*3)+106,(fty*3)+106
  46.   else
  47.     put ty+ko into fty
  48.     XFootball (ty*3)+106,(fty*3)+106
  49.   end if
  50.  
  51.   put fty into ty
  52.   put 0 into dwn
  53.   put 0 into mdw
  54.   put r into yop
  55.   if dir=0 then
  56.     put ty+yop+10 into fdown
  57.   else
  58.     put ty-yop-10 into fdown
  59.   end if
  60.  
  61.   put 0 into kick
  62.   Runplay
  63.  
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 2 (button)
  69. -- low flags: 00
  70. -- high flags: 8004
  71. -- rect: left=380 top=76 right=134 bottom=454
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 13259 / 13259
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: KICK OFF!
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   global ty, dwn, dir, fdown, ptime, yop, kick, ofns, plytyp,mdw,play
  83.   global ds, inc, drop, onside
  84.  
  85.   put "KICK OFF" into play
  86.   put 0 into onside
  87.   put 0 into plytyp
  88.   put 0 into drop
  89.   put 0 into inc
  90.   put 0 into ofns
  91.   put 12 into ptime
  92.   put the random of 99 into kick
  93.   put the random of 99 into rtn
  94.   if kick >= 95 and kick <100 then put 40 into ko
  95.   if kick >= 90 and kick <95 then put 46 into ko
  96.   if kick >= 70 and kick <90 then put 51 into ko
  97.   if kick >= 40 and kick <70 then put 68 into ko
  98.   if kick <40 then put 57 into ko
  99.  
  100.   if rtn >= 98 and rtn <100 then put 100 into r
  101.   if rtn >= 96 and rtn <98 then put 4 into r
  102.   if rtn >= 85 and rtn <96 then put 7 into r
  103.   if rtn >= 75 and rtn <85 then put 10 into r
  104.   if rtn >= 65 and rtn <75 then put 15 into r
  105.   if rtn >= 30 and rtn <65 then put 19 into r
  106.   if rtn >= 15 and rtn <30 then put 24 into r
  107.   if rtn <15 then put 30 into r
  108.   visual effect scroll up
  109.   go to card 5
  110.   if dir=0 then
  111.     put ty-ko into fty
  112.     XFootball (ty*3)+106,(fty*3)+106
  113.   else
  114.     put ty+ko into fty
  115.     XFootball (ty*3)+106,(fty*3)+106
  116.   end if
  117.  
  118.   put fty into ty
  119.   put 0 into dwn
  120.   put 0 into mdw
  121.   put r into yop
  122.   if dir=0 then
  123.     put ty+yop+10 into fdown
  124.   else
  125.     put ty-yop-10 into fdown
  126.   end if
  127.  
  128.   put 0 into kick
  129.   Runplay
  130.  
  131. end mouseUp
  132.  
  133.